home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / TR_ISWK.PRG < prev    next >
Text File  |  1990-10-22  |  341b  |  16 lines
  1. *********
  2. * Function : ISWKEND
  3. * By : Tom Rettig
  4. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  5. *********
  6.  
  7.  
  8. FUNCTION ISWKEND
  9. * Syntax: ISWKEND( <expD> )
  10. * Return: True if <expD> occurs on a Saturday or Sunday, otherwise False
  11. *
  12. PARAMETERS tr_date
  13. RETURN DOW(tr_date)=7 .OR. DOW(tr_date)=1
  14. * eofunc eow *
  15.  
  16.